<!-- #include file="configuracoes.asp" -->
<!-- #include file="interface/head.asp" -->
<%permissao "mensagens"%>
<%

opcao = requestGET("opcao")
id = requestGET("id")
valor = requestGET("valor")

			
		DIM titulo_,conteudo, autor, tags, xml, link, descricao, twitter, status_

DIM i, j

Select Case opcao

	Case "mensagens"
			
		str = "Select id FROM feeds order by id desc"
    	Set rsF = conexao_geral.Execute(str)	
		
		j = 0
		
		mensagens_interface_cabecario
		
		Do While not rsF.eof
		
			id = rsF("id")
		
			%><div class="lista_linha" id="mensagens_<%=id%>" style="background:#<%=linha_cor(j mod 2)%>"><%
		
			mensagens_interface_id id
			
			%></div><%
			
			j=j+1
		
		rsF.MoveNext
		Loop


	Case "add_feed"

		
		titulo_ = requestFORM("titulo")
		conteudo = requestFORM("conteudo")
		autor = requestFORM("autor")
		tags = requestFORM("tags")
		xml = formulario_checkbox(requestFORM("xml"))
		twitter = formulario_checkbox(requestFORM("twitter"))
		

		If titulo_<>"" AND autor<>"" AND conteudo<>"" then

			feeds_novo "../", titulo_, autor, tags, conteudo, xml, twitter

		End If
		response.Redirect("mensagens.asp")

	Case "edi_feed"

		
		titulo_ = requestFORM("titulo")
		conteudo = requestFORM("conteudo")
		autor = requestFORM("autor")
		tags = requestFORM("tags")
		status_ = requestFORM("status")
		xml = formulario_checkbox(requestFORM("xml"))
		twitter = formulario_checkbox(requestFORM("twitter"))		
	
		
		str = "Select id FROM feeds where id="&id
		Set rsFeC = conexao_geral.Execute(str)		
		
		If titulo_<>"" AND autor<>"" AND conteudo<>"" AND not rsFeC.eof then
			
			feeds_editar "../", id, titulo_, autor, tags, conteudo, xml, twitter, status_

		End If
		response.Redirect("mensagens.asp")	
		

	Case "deletar"
	
			feeds_deletar "../", id
			
			Response.Write("Registro Deletado")			
		
End Select




%>

<!-- #include file="interface/footer.asp" -->